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EDITORIAL 


Au cours d'une récente discution avec un de nos rédacteurs d'articles, 
nous avons été amenés à débattre des avantages et inconvénients des 
divers langages utilisés sur les microordinateurs. Bien entendu, chacun 
défendait son point de vue sur la partie le concernant, par passion 
d'abord, par conviction ensuite. 

Mais tout le monde semblait obsédé par les performances à la compilation 
ou à l'exécution des programmes en fonction de tel ou tel langage. Il 
n'y eut pas de conclusion, chacun restant convaincu du bien fondé de sa 
démarche personnelle. | 

En fait, le langage le plus Détique: c'est celui que vous maitrisez. 

Peu importe les performances, à condition qu'il remplisse les fonctions 
auquelles vous le destinez, même s'il s'agit de BASIC. Mr SCHERER m'a 
ie, à juste titre, que dans certains cas une brouette est plus utile 
qu'une voiture de course, surtout quand il s'agit de transporter vingt 
kilos de pommes de terre sur vingt mètres. 

Si l'on applique les principes d'une pensée aussi profonde à l'univers 

de l'informatique, on arrive à la conclusion que tout est bon à prendre, 
qu'il s'agisse des systèmes comme des langages et des programmes. Il 
suffit que ceuxci servent. Effectivement, combien d'utilisateurs exploitent 
toutes les possibilités offertes par leur système. IL en est de même 

des langages. 

Vautil mieux programmer avec des langages à tout faire, véritables 
dinosaures fossilisés par leur rigidité, ou exploiter des modules extrèmement 
Compacts, semblables à des boîtes à outils pour passionnés du bricolage ? 
Le débat reste ouvert entre partisans du meccano et tenants du produit 
fini: Forth ou dBASE II, APL ou ASSEMBLEUR, etc... ? 

Alors faisons plaisir à chacun. Voici une nouvelle brouettée de trucs 
pour vous faire passer des vacances studieuses à l'ombre de vos disquettes. 
Où alors prendrezvous place à bord de notre MUMPS six cylindres et irez- 
vous par les chemins menants au confort des gros systèmes ? Quel que 

soit votre destination, revenezen avec une petite provision de soleil et 
mitonnez nous quelques petits sujets juteux à faire partager à nos 
adhérents impatients d'apprendre. 
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FORTH Les en-têtes séparés RE bar Klaus SCHLEISIEK 


la énoire des systènes en RAN peut être a. 
sysboles", permettant de se débarrasser après conpii 
res qu'au aonent de la coapilation, L'utilisation ero 
re et encouragera La création de définitions plus cour 
dûe aux chanps nos et lien n'existe plus. 
Au cours d'un projet de deux ans, j'ai développé quelques outils 
de dans les systèmes en RAM. Les méthodes utilisées sont exposées ci- de ou 
Le but était le développenent d'un systèae sonore contrôlé par 
d'un certain nosbre de synthétiseurs par pointage du crayon sur des poin ie Ss 
écran vidéo. Aucune intervention au clavier n'était prévue, ün “point” était 
ent les inforsations suivantes: 
4j - la forse du point conne adresse 
Bi - l'esplacement du point sur l'écran conse adresse 


ni 


Ci - en option, une chaîne soit de texte, soit de cara 


À 


. dessous, ou d'un côté ou l'autre du gaint 


€: 
23 


Ts 
se. 


rt et 


Les 
fe ut 


TOFSYMBOLE 


PL 


rhone 
iVréir 


principal 
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Quand un aot est compilé, ses chaaps nom et lien sont conpilés dans le dictionnaire des syrtoles, je not est 
déclaré ieréciat et (CFA) ect consilé en tant que son chars code, suivi par l'aéresse de l'emplacenent féaoire suivant 
dans le dictionnaire principal. Le reste de la définition courante {le corps) sera.alors compilé dans ce dernier .Lors- 
que Le aot est appelé, son CFA est pris à l'emplacement sénoire suivant l'adresse du chanp code de (CFA). 

La fonction de (CFA) (écran #21} est soit de conpiler l'adresse d'exécution du code dans le dictionnaire (lcrs- 
que le not est ensuite utilisé dans une définitionn), soit d'exécuter la définition, ce qui dépend de STATE, avant 
d'oublier" les syaboles, L'inplantation décrite ici traite le cas du 8502 et doit tenir conpte du fait qu'aucun CFA 
ne doit être placé en XIFF, ce qui rend les définitions de (CFA et CREATE un peu aystérieuses! 


FORGET-SYMBOLS: 


avant | après 
FORGET-SYMRCLS ( écran k 22 ) 
es eme nn e— DECAVE mme snnnnnnns parcourt chaque dictionnaire et “dé-lie" 
diet. DEEE chacune des définitions placée dans je 
définitions définitions ‘dictionnaire des syaboles,en la libérant 
ainsi (fig. .2°}, C'est long, et on sup- 
SES pose qu'aucun syrbole n'existe au-dessous 
& ? de FENCE 8, Avant d'oublier" quoi que 
définitions derinitions ce soit dans le dictionnaire principal, 
TEA vous devez appeler FGRGET-GYMECLE, 
Autrement des liens peuvent ftre rospus 
et l'interpréteur ne plus fonctionner. 


synboles 


| 


n 
en 


Sn M RS NN | isa Lnrest 


définitions 


définitions 


cnnnnnennn sms G sessions 


définitions . définitions 


See 0 avant QG 


dernière compil. 


dict. 


princip. 


Figure 2 


L'étape suivante consistait à faire travailler aucsi bien Les mots de définition dans le mode DRUE- HEADS ,ce qui 
oblige à redéfinir (3C0DE) (écran #25). [1 utilise gaintenant la sous-définition (:C0D! et, selon l'état de HEADFLS, 
détergine l'esplacenent du champ code à ré-écrire, et le ré-écrit, 

Un problère peut se présenter dans le cas, rare, où une définition dont l'en-tête doit être "jetée est sup- 
poste être isrôdiate. La "solution" est de déclarer ce cas conne étant illégal..,f! y a toutefois une raison, Ce cas 
de peut se produire que si La définition imnéciate à placer dans le dictionnaire principal se trouve avec le not 

(CONPILET dans une définition, Autrerent, il faudra de toute façon ja congiler entiérenent dans le dictioanaire des 
sable à Un tel cas est si rare qu'il ne sembie pas justifier l'effort de redéfinir IMMÉDIATE et [COMEILE) , Pour 
utiliser un sot dont la tête a été conpiiée dans le dictionnaire des sysocles en node lonédiat dans une définition i! 
faut faire .... EL KAXX 1 .,, ! 

Finalement, je reaarquais que j'étais en train de créer £EUILES .. DOCS) et 
tenps de conpilation issortant, et ne faisant rien d'autre que d'utiliser de 1’ 
ies parties “cospilation" de ces définitions ne sont pis utilisées airs compilation, Si donc i 
têtes, tout ce qui précède D0ES) peut être suppriné aussi bien. Ii sera cependant nécessaire de redéfinir DOC} st 
CODE (écrans 426 et 27}, 


Bu roñent de la compilation, La situation d'une construction <EHILDE DES est a cuivante: dans l'état 
DROP-HEADS, Le nor a été placé dans Le dictisaneire des syeboles et en cc nséguence (EUILES à été tangilé dans Je 
dictionnaire principal, Lorsque nous arrivons à DOCS), tout ce qui à sua | compilé dans ce dernier, y ongris le chars 
code, doit Être déplacé dans Le dictionnaire des symboles. 

Ceci est fait par MVE-DEFF (écran 428), utilisé dans DOEG et : OCDE, Salon :'état de HcADFLS, NOVE-DEF? ou 
bien cospile (;C0DE), où bien glace }3 définition précédente dans Le dictionnaire des symogles et foggiie (CCE), 
UGS COBE) doit avoir un pas d'indirection de plus que (CODE) et à la 2ème fonction que (CFA) dans les définitions 
ordinaires, ns 
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Une dernière remarque: les définitions de 6070 et LABEL, qui peraettent des références avant gultipies (par ex, 
plusieurs 6070si peuvent orécéder aussi bien que suivre ‘leur étique . ‘Bien que je les aie implantées parce 
c'était plus facile que la restructuration, on peut questionner leur valeur réelle, car elles occupent Si octets! 


GLOSSAIRE. 


TOPHIC 

constante espilant l'avant dernière adresse devant être utilisée conse dictionnaire principal. 
BOTSYMBOLS 

constante enpilant la presière adresse devant être utilisée coame dictionnaire des syaboles. 
TOPSYMBOLS 

constante enpilant l'avant dernière adresse devant être utilisée conse dictionnaire des symboles, 
DPSAVE 


variable contenant le pointeur vers le dictionnaire actuelleaeñt inactif, 
TO {Top Of Dictionnary) 
variable contenant l'avant dernier enplacement sémoire courant à utiliser pour 


MAIN-DIC 
fait pointer DP sur le prochain enplacement méaoire libre du dictionnaire 
suivre seront donc compilées en permanence dans le cicticnnaire principal. 
Si DPF pointait déja vers ce dictionnaire, ii ne se passe rien, 
Son contraire: SYMEUL-DIC. 

SVMBOL-DIC 
fait pointer DF sur Le prochain esplacesent ménoire libre du dictionnaire de 
nitions qui suivent seront cospilées dans ce dernier et pourront être effacées 
affecter le dictionnaire principal, 
Bi DP pointait déjà vers le dictionnaire des symboles, ii ne 
Son contraire: MAIN-DIC, 

FORSET-GYMROLS 
est utilisé pou’ dé-lier les définitions conpilées dan 
dictionnaire SrinGIRle. 


RTTENTION: si quelque chose à té co mité dan me ici re des syRicles, Vous cevez 
euyagLe" avant d'effacer quoi que ce sait dans le dicti ire principal, 


contenant l'État des er-tôtes, c, 

@ --} COMPILE-HEADE à été effectui 
--} GROF-HEADS et MAIN-DIC cat 
= 2-5 DRCF-HEADE et SYMEGL-DIC 
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MUMPS 10ème partie par Yannick LE GRAS 


XIII LES TABLESUX DE VARIABLES LOCALES 


à Introduction 


2% 


Nous n'avons utilisé, jusqu'à présent, que des variables apcelées variables 
simples {elles ne sont repérées que par leur nom', MUMPS oermet ïe mettre en 
seuvre des variables avec des indices de trpe "uectorisal", Gu des ariables à 
dimens:ians multiples {appelées "tableaux", En fait, lez variables de tvre 
“yectoriel" sont des variables isolées les unes des autres par un et un seul 
indice associé à un nom, Exemples : 


NOM 19 NOMIZ2 NOM ou NOM "DURAND" NCMÉPOUPONT") etc... 


Pour les vartabies de type "tableau", a difference essentielle réside dans 
le fait que l’on cite plusieurs niveaux d'indices, Les exemples suivants 
illustrent des variables "tableau". Ne confondez pas "contenu" et 
“contenant". Pour le momment, nous ne parlons que des "contenants" 
{yariabies) puisque MUMPS ne fait de différence pour les "contenus" qu'au 
moment de leur utilisation. 


NOMS "SITUATION" , "DURAND" , "JEAN" ,19 ou  NOMS"SITUATION", "DURAND" , "JEAN" ,2) 


Dans l‘exemple ci-dessus, la citation de 1a variable NOM descrit plusieurs 
niveaux ou dimensions de manière implicite et hiérarchique. La variable 
NOMC"SITUATION", "AURAND "3 existe er tant que telle parce que "OM{"SITUATION") 
xiste ou est censée exister, Les variables données pour exemple sont des 
variables à 5 dimensions, Les niveaux, hiérarchiques, utilisés sont les 
suivants : 


NOM 

NOM MSTTURT TION" 

NOM SITUATION", "DURAND" 

NOM "SITUATION" , "DURAND" , "JEAN" 
NOM "SITUATION", "DURAND" , "JEAN" ,nbà 


MUMPS, lorsqu'il rencontre la dernibre forme de citation, 2rend en compte 
autimatiquement, s'ils n'existent pas, les niveaux eupérieurs, 


Ayant acquit un certain nombre d’£léments du langage MUMPS, nous allons 
analyser un petit programme simulant une saisie d'employés dont nous 
connaissons le numéro de sécurite sociale, En entrant uniquement au clavier 
un cr), la saisie est considérée comme terminée, La var'able receptrice, 
dans ce cas, est alimentée avec une chaîne vide, 


SAISIEMP saisie des employés V.L.G. 1/N0V/B4 MAJ: 1'NQV/84 
158$ est la variable contenant le No de 5,5, 


S {6S,NBS)=0 

DEBUT R #,!,"No de sécurite sociale : ",56 GiSS="" FIN 
P !,"Nom de l'employé : ",NOM 
S FICKSSi=N0M ,NRS=NBS+1 SG CERUT 

FIN W !,'uous avez saisi + "NES," employés” à 


Pour cet exempie, nous avons volontairement choisi une orogrammation 
Pinéaire, afin d'en faciliter la lecture, 


Bi Les tableaux et leurs indices 


, l'utilisation de tableaux ne nécessite, à priori, pas de 
se ervation en memoire. La place réellement util iièée par une variable tableau 
né sera égale qu'à la place vraiment nécessaire. Quant aux indices, MUMPS 
ajoutera seulememt Ceux qui n'existent pas dans la table das svmboiss, Cet 
sarticuiarité permet d'optimiser la place utilisée, Nous verrons ensuite 1 
technique qu'utilise MUMPS pour stocker les variables ‘"3; impies" ou 

"tableau"), C’autre part, en MUMPS, le terme "tableau" ect galvaudé puisqu‘ 
8st possible de renseigner uniquement certains Éléments de celui-ci 


= 


| 

ns au concept de tableau vehiculé par MLMPS, Contrairement à d'autres | 
5 

| 

l 

nl 

| 


RS =) 
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Ci Restrictions sur les variables "tableau" 


Le Standard MUMPS ne spécifie pas le type et la longueur des indices 
utilisables, mais pour des raisons de partabilité, il indique que Îes indices 
ne devront pas ftre des nombres négatifs et que la longueur définissant le 
tableau nom de la variable + ses indices) n'exedera pas 64 caractères, Le 
contenu associé à cette variable ne depassera nas 253 caractères, 


D Exemple d‘utilisation des tableaux en MUMPS 


à . 4 à : . : 
Imaginons que nous ayons besoin de creer un "fichier client", Nous pourrions 
Écrire la routine suivante : 


SAICLI isaisie d’un fic, client Y.L,.G, 2/11/84 32/11/84 
S CLI="FICHIER CLIENT" 
| F CLINO=i:1 D NOM.ADRESSE ,CPOST D:NOM'="" CREA QiNOM="" 
FIN QG fin de programme 
NOM R !,"entrez le nom du client : ",NOM & 
ADRESSE R !,"adresse du client : ",ADR 
CPOST R !,"code postal : ",CP QG 
CREA S CLICCLINO)=NOM,CLI'CLINO,1)=4DR ,CLISCLINT,23=CP G 


Le fait d'avoir attribué À la variable CLI te libellé FICHIER CLIENT revient 
à autodocumenter le fichier, Par la suite, nous avons aiimenté le fichier 
avec deux niveaux d'indices. Le premier indice represente un numéro unique de 
client : valeur fournie par la variable de boucle, La donnée associée à 
cette variable est le nom du client, Puis, nous avons ajouté un deuxième 
niveau d'indices qui specifient dans un cas l'adresse, dans l'autre cas Île 
code postal. Comme nous l’avons dit précédemment, MIUMPS, lorsque nous citons 
le deuxieme indice, ne réserve plus de place pour l‘’indice précédent. En 
fait, il ne fait qu'attacher le nouvel indice cité à l'indice précédent. 


E) La commande KILL utiligee pour les tableaux 


La commande KILL que nous avons vue précédemment peut aussi être utilisée 
pour les tableaux, Lorsqu'elle est utilisée sans argument, KILL susarime 
toutes les variables "mémoire" avec ou sans indice, Si nous utilisons KILL 
nom de variable, KILL supprimera cette variable ainsi que tous ses indices 
‘ils existent. 11 sera Également sossible de supprimer sélectivement des 
arties de tableaux, Par conséquent, 51 nous reprenons la ‘'ariable CLI et 
.# nous voulions seulement supprimer les informations concernant le client 
umero 18, il suffit d'écrire : KILL CLI‘18), 


43 33 


£ 


per | 


F : 4 : 

à contrario, on peut egalement supprimer toutes les variables SAUF la 
sariable concernant le client numéro 14, Dans ce cas, on ecrit 

KILL SCLIfI@n, ‘ 


Les variables "tableau" dans lesquelles on trouve un indice ne devront être 
considerees que comme des variables axant un ou des descendants “comme dans 
un arbre genealogiquei, La structure qu'utilise MUMPS pour stocker les 
tableaux e2° de type arborescent et hiérarchique, 


Fi Fonctions de manipulation de tableaux 

MUMPS met a la disposition de l‘utilisateur deux fonctions pour manipuler 
les tableaux. Avant d'utiliser une varjiabie, il faut £yidemment savoir si 
sile oxiate, ceci af'r d'euiter les erreurs, Dans certains cas il est 
également nécessaire de savoir si une variable à des sescendants. 

F-12 La fontion DATA 


Le statut d'une variable ceut'ètre de quatre tynes 
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La variable n'est pas définie et n'a pas de descendant. 
La variable est définie mais n°a pas de descendant, 

La variable n'est pas définie mais a des descendante, 
La variable est définie et a des descendante. 


Lorsque nous parlions de variables definies, nous sous-entendons que Îla 
variable à un contenu. Le rôle de la fonction $DATA consiste à permettre 
l‘utilisateur de connaître le statut d’une variable, Sa syntaxe est la 
suivante : SDATA(NOM DE VARIABLE) ou $DINOM DE VARIABLE), Les valeurs 


retournées par cette fonction sont données dans le tableau suivant : 
Ualeur retournée Explication 


) Variable indéfinie, sans descendant 

Î Variable définie, sans descendant 

14 Uariable indéfinie, avec descendant(s) 
4 Variable définie, avec descendant(s) 


: LA : ; dec, . 
Pour exemple, considerons les variables suivantes : 


Aïii='"un" äé1,3,9)="un trois cinq" B="be" 


Expression a evaluer Ualeur produite 


$0{B: 
$DiA) 
$DiAit:: 
$0(Ci 


F-9) La fonction SNEXT 


L 


1} est souvent intérressant de pouvair parcourir une arborescence en £e qu! 


concerne les différents indices. Cette fonctionnalité est réalisée grâce à 
SNEXT. 


. #4 : : L 
La fonction #NEXT retourne le prochain descendant hiérarchique de l'indice 
cité, Cette <onction est retativement difficile a comprendre. atin d'être 
plus clairs, nous allons analyser ce qui se passe dans l’exemple ci-apres. 


Supposons que nous ayons attribué È la variable * les indices suivants : 


1 1,2) ; X61,5,4) et X12) 


La valeur -1 sera retournée par $MEXT lorsqu'elle ne pourra plus délivrer 
d'autre indice du meme niveau, La valeur -{ permet également d'initialiser 
le sommet d’un niveau que l’on veut parcourrir, 


F f 4 ne = 
nous appliquons BMNEXT aux variables precedemmernt définies, nous 
‘endrons Îes résultats suivante 


Variable $NEXT{Var tablet 


X{=1) 
K£ 1) 
X{4,-11 
X{1,2) 
X(1,5) 
X‘1,5,-1) 
x(1,5,6) 


ee BE TJ I 


Ce chapitre nous a permis d’étudier une caractéristique importante de MUMPS 
et d’introduire deux nouvelles fonctions qui permettent de parcourir le 
tableaux emmagasinés par MUMPS. L'utilisation conjointe de $DATA et 85 
$NEXT, illustrée ci-apres, demontre comme il est simple d’avoir l’image: 
complète d’un tableau. 
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UTILISATION DE SNEXT ET DE $DATA 


GD— s0- 7 SNOX( = 1)) 


$0=1 


$N=4 
SN= -1 
S$SN=5 


G.5)) $D = 10 A 


SN=-1 


ne 
SN =2 D 
$0=1 


La source FORTH c'est JEDI 
sur SAM. Télétel 3 (3615) : 
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en Europe 


Das erste FORTH Quelle in Europa 
The first FORTH Network in Europa 
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FO R T H TRAITEMENTS DES ENSEMBLES 


La vocation première de FORTH est de 
manipuler des nombres entiers, des chaînes de 
caractères et quelquefois des réels. Mais cela 


s'avère parfois insuffisant. 


On peut, en effet, vouloir travailler avec 
d'autres types d'objets,tels les nombres com- 
plexes, les arbres et les listes, etc... 11 
faut alors étendre soi-même le vocabulaire 
FORTH. 


C'est ce que j'ai été amené à faire pour 
manipuler les ensembles. 


REPRESENTATION DES DONNEES 
a) STRUCTURE D'UN ENSEMBLE. 


Un ensemble est un groupement de mots 
(éléments) uniques et dont l'ordre n'a pas 
d'importance. On peut représenter les ensembles 
comme une Chaîne de bits, où un 1 indique qu'un 
élément appartient à l'ensemble et un © indique 
qu'il ne lui appartient pas. 


Cette représentation a plusieurs avantages: 
- elle est économe en mémoire. 


- la manipulation des ensembles 
relativement aisée. 


sera 


Elle a cependant l'inconvénient d'être rigide. 


Un enseble vide occupe autant de place qu'un 
ensemble plein. 
représentation d'un ensemble 
No de l'octet 1 2 3 


No du bit de l'octet|765432107654321076543... 
indice de l'élément [87654921876543218765.... 


où chaque élément sera caractérisé par son 
indice (position de son bit représentatif dans 
l'ensemble). Exemple: 


0110101100001000 
8765432187654321 


est un ensemble 


qui comprend les éléments no 1,2,4,6,7,12, les 
éléments no 3, 5, 8, 9, 10, 11, 13, 14, 15, 16 
n'appartenant pas à l'ensemble. 


donc 
écrire 


Pour manipuler des ensembles, il faudra 
créer des mots pouvant lire un bit ou 
sur un bit. 


b) REPRESENTATION 


L'élément devra contenir la position du 
bit qui le représente, et devra en plus réser- 


ver un espace pour permettre à l'utilisateur de 
donner un contenu à cet élément. 


L'élément sera constitué de deux zones, la 
première, appelée zone système qui est définie 
par: 

- Un octet contenant l'indice de l'élément, 


c'est à dire sa position dans l'ensemble. 
= un octet indiquant la place disponible pour 
l'utilisateur (n mots de 16 bits). 


Et la seconde zone, nommée zone utilisateur, 
constituée de n mots de 16 bits, où un élément 
peut représenter: 


- une variable, une chaîne de caractère ou 
même un programme (Ndir: on sent venir LOGO 

- le nombre d'éléments, ainsi que le nombre de 
mots de 16 bits réservés à l'utilisateur. Cette 
quantité est limitée à 255 éléments. 


par Laurent BOUVOT 


c) CONVENTION D'ECRITURE 


x: représente une suite d'octets sur la pile de 
longueur N. 


N: représente le nombre d'octets d'une suite x 
sur la pile. 


fi: représente le résultat d'un test; Oséchec, 
1=succès. ; 
s: représente le contenu d'un ensemble, c'est à 
dire une chaîne de bits. | 


e: représente l'indice d'un élément. 
ADS: adresse du début du contenu de l'ensemble. 


ADE: adresse du début du contenu de l'élément. 


ORGANISATION DE S-FORTH 

S-FORTH est composé d'un vocabulaire per- 
mettant la manipulation des ensembles, de deux 
tableaux et d'un certain nombre de constantes 
et de variables système. 


a) LES TABLEAUX 
Le tableau TES: pour chercher les ensembles 
contenant un élément, il faut connaître tous 
les ensembles existants, d'où le but de ce 
tableau, contenant toutes les adresses des 
ensembles. C'est, en quelque sorte, l'ensemble 
des ensembles. 


Le tableau TEE: permet de faire la correspon- 


dance entre l'indice e d'un élément, et l'a- 
dresse ADE (début du contenu de l'élément). 
L'indice est représenté par la position de ADE 
dans ce tableau. Exemple: 

5 TEE @ 
donnera l'adresse du cinquième élément (Ce=5, 


ADE= 5 TEE @ ). : 


Ces deux tableaux sont unidimensionnels 
b) LES CONSTANTES 


Elles peuvent être modifiées par l'utili- 
sateur avant initialisation de S-FORTH. 


La constante NEM: contient le nombre maximum 
d'éléments définissables, valeur limitée à 255. 
Cette valeur définit la longueur de TEE ainsi 
que la longueur d'un ensemble. 


La constante NSM: contient le nombre maximum 
d'éléments définissables. C'est en fonction de 
cette constante que la longueur du tableau TES 
sera calculée. 


c) LES VARIABLES 
Ce sont les variables du système S-FORTH. 
contient le nombre d'éléments 


La variable NED: 
définis. 


La variable NSD: contient le nombre d'ensembles 


définis. 


Î1 sera nécessaire de connaître fréquemment Ja 
longueur d'un ensemble: 


- en nombre d'octets. 
- en nombre de mots de seize bits. 


pe 
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ce qui nous amène à définir deux constantes 


pratiques: 7 


NS = NEM / 8 
N16 = NEM / 16 


ce qui implique que NEM doit être un multiple 
de 16. 


LE VOCABULAIRE S-FORTH 
a) MANIPULATION DE LA PILE 


Les objets à manipuler étant des ensembles, ils 
auront une longueur assez conséquente (N8 oc- 
tets). 11 faut donc prévoir des instructions 
pouvant agir sur plus de deux octets. 


U? . C --- adr) 
donne l'adresse du sommet de la 


l'exécution du mot. 


pile avant 


U! C adr ---) 


donne au pointeur du sommet de la pile 


utilisateur la valeur adr. 


R<D ( n --- n) 
copie le sommet de la pile de données sur 
pile de retour. 


PUL (€ n adr --- x) 
empile les n octets 
l'adresse adr. 


contenus à partir 


REMOVE Cn N ---) 
enlève N octets de la pile à partir 
l'adresse U? + N x n. Exemple: 


Xn+1 xn xn-1 ... 
-+- Xn+1 xn-1 ... 


X2 X1 x0O n N ---- 
x2 x1i x0 


où xn a été enlevé de la pile. 
NDROP C x N ---) 


enlève N octets du sommet de ia pile 
avoir enlevé N lui-même). 


(après 


NDUP CC X N --- x x) 
duplique les N premiers octets de la pile. 


NOVER C X1 x2 N --- x1 x2 x1) 
même rôle que OVER mais sur des mots de N 
octets. 


aNPICK X3 xX2 X1 xO0O 3 N --- x3 x2 x1 xO x3) 


NSWAP X2 X1 N --- x1 x2) 


NROT X3 X2 x1 N --- x2 x1 x8) 
Ces mots sont d'utilité très générale. Ils 
permettent de manipuler des objets ayant un 
nombre d'octets supérieur à #4. A noter que l'on 
peut travailler sur un seul octet. Exemple: 

1 NSWAP inverse le poids fort avec le poids 
faible d'un mot 16 bits. 
SDROP Css ---) ‘ 
supprime les N8 premiers octets de la pile, 
c'est à dire un ensemble. 
. SDUP Css --- ss) 
duplique la chafne de bits s (ensemble). 


SOVER € S1 s2 --- s1 s2 s1) 


SPICK € sn...s2 s1 sO0O n --- sn...s2 s1 sO sn) 


SSWAP (€ 81 82 --- s2 s1) 


SROT_ C 83 s2 s1 --- s2 s1 s3) 
b) ECRITURE ET LECTURE D'UN BIT 


Les éléments étant représentés dans 
par un bit, 


l'ensemble 
il faut naturellement des instruc- 
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tions lire et écrire les bits d'un 


pouvant 

octet. | 
BIT? € n2 nil --- b) 

dépose sur la pile le contenu du nième bit de 
n2, nl étant compris dans l'intervalle O..7. 11 
est impossible de lire dans le poids fort de 

n2. 


BIT! ù 
charge le 
bétant égal à O ou 1 et nl compris dans 
tervalle O..7. 


(€ n2 b ni --- n) 
nième bit de n2 avec la valeur b, 
l'in- 


OCT>IND (4 
n2+1+8x(n+1)) 
dépose les numéros des bits qui sont à 1, 
additionnés de 8x(n1i-1) et incrémentés de l'oc- 
tet. Exemple: 


ni n2 --- numéro des bits à 1 de 


3 % 11000111 --- 17 18 19 23 24 
1 $ 11100111 --- 123678 


C) CREATION 


Les tableaux TES et TEE sont créés 
l'instruction ARRAY1. Attention, 
fonctionne pas de la même façon 
machines utilisées. Exemple: 


grâce à 
ARRAY1 ne 
suivant les 


N ARRAY1 TABL donne 
soit n appartenant O..N 
soit n appartenant 1..N 
soit n appartenant O..N-1 


longueur N+1 
longueur N 
longueur N 


TES et TEE ont été définis de manière à 
selün le second exemple. 


réagir 


ARRAY1 CN ---) 

crée un tableau de longueur n mot(s) 
dont l'indice est compris dans l'intervalle 
1..N. Pour éviter tonte erreur, sa définition 
est donnée dasn le vocabulaire S-FORTH. 


16 bits 


CREATION D'UN ELEMENT : 


EE Çn ---) 
crée un élément ayant n mots 16 bits de 
pour l'utilisateur. Exemple: 


libre 
2 EE ELEMENT 


crée un élément ayant pour nom ELEMENT, 
réservant 4 octets pour l'utilisateur. 
élément déposera son indice au sommet de 


pile lors de chaque appel. Exemple: 


ELEMENT affiche 1 OK 

Pour connaftre l'adresse de la zone libre 
l'élément, il faudra se servir du tableau 
correspondance: 


ELEMENT TEE @ 2+ 


donne l'adresse du début de 1a utilisa- 


teur. 


zone 


ELEMENT TEE @ 1+ C( 


donne la longueur, en mots de seize bits, de la 
zone utilisateur. 


CREATION D'UN ENSEMBLE 

ES --- <mot> 

permet la création d'un ensemble <mot>. Au: 

départ, l'ensemble ayant un contenu quelconque, : 

on prendra la précaution de le vider. Exemple: 
ES ENSEMBLE 

crée un ensemble nommé ENSEMBLE dont l'exécu- 


tion déposera sur la pile l'adresse du début du 
contenu de l'ensemble. 


je 


‘d) OPERATIONS SUR LE CONTENU DES ENSEMBLES 


ES. ( ads ---) (qads-adresse ensemble) 
affiche le contenu d'un ensemble. 

VIDE! ( ads ---) 

vide un ensemble, c'est à dire met tous les 
bitsàä zéro. Un ensemble créé par ES n'est pas 
vide au départ. 

ENLEVEL1 ( e ads ---) 

enlève l'élément d'indice e de l'ensemble d'a- 
dresse ads. 

‘ENLEVE! ( $FFFF el e2...en ads ---) 

enlève les éléments dont les indices sont sur 


la pile, de l'ensemble d'adresse ads. :FFFF 
indique la fin .de la liste des éléments : à 
enlever. 

APP1 € e ads ---) “appartenance“ 


rajoute l'élément d'indice e dans l'ensemble 
d'adresse ads, e appartenant à l'ensemble poin- 
té par ads. $ 


APP1 ( $FFFF el e2...en ads ---) 
rajoute dans l’ensemble d'adresse ads les élé- 
ments sur la pile, ceci jusqu'au délimiteur 
FFFF (en hexa) soit 65535 en décimal. 


CHARGE! ( 65535 el e2...en ads ---) 
initialise un ensemble en le chargeant avec el, 
e2...en. Cette instruction revient à écrire DUP 


. VIDE!  APP!. Le contenu de l'ensemble sera 
en,...,e2, el. 

>-> 
cette instruction est équivalente à CHARGE!. 


Seule la syntaxe change. Elle permet une meil- 
leure lisibilité des programmes. Exemple: 


65535 ei e2 e3...en )-> ENSEMBLE 


l'ensemble ENSEMBLE 


a pour effet de charger E 
‘ENSEMBLE ES. ‘ 


avec les éléments en...e3 e2 el. 
donnera ‘el e2 e3..en OK'. 


<( C --- 65535) 
dépose la valeur 65535 (FFFF en hexa) sur la 
pile. Ainsi, ‘65535 el e2 e3 e4 )-> A' est 
équivalent à ‘<( ei e2 e3 e4 )-> A'. Ceci 
accroit notablement la lisibilité du programme. 


*ES(@ ( ads n --- x) 
dépose sur la pile les n mots de 
contenus à partir de l'adresse ads. 


seize bits 


"ES! ( x ads n ---) 
charge les n mots seize bits de 
partir de ads. 


la pile à 


ES (® ( ads --- 8) 
empilie le contenu s de l'ensemble dont l'adres- 
se ads est sur la pile. ; 


ES! ( s ads ---) . 
Charge s dans l'ensemble d'adresse ads. 
ple: 


Exem- 


ES S1 ES S2 ( crée les ensembles Si et S2) 
S1 ES S2 ESt ° 
( S2 <- S1 => S1 = S2) ‘ 


transfère le contenu de S1 dans S2. 
e) OPERATIONS ENTRE LES ENSEMBLES 
=! ( ads1 ads2 ---) 
remplit l'ensemble d'adresse ads1i avec le 


contenu de l'ensemble d'adresse ads2. Exemple: 


S1 S2 =! est équivalent à 
S2 ES( S1 Est 


‘OÙ C x1 xX2 n --- x) 
exécute un OÙ logique entre x1 et x2, soit deux 
chaînes d'octets de longueur n (x = xl OR x2). 


"ET C xX1 X2 n --- x) 
exécute un ET logique entre x1 et x2. 


"OUEX € x1 x2 n --- x) 
exécute un OU EXciusif entre x1 et x2. 


"NON ( X1 n --- x) 
réalise un NON logique, c'est 
complémentation de x1 (x = NON(x)). 


à dire une 


ET C si s2 --- s) 
dépose sur la pile l'intersection des ensembles 
si et 2 (s = s1 inter s2). 


OÙ (€ si s2 --- s) 
dépose sur la pile le résultat de l'union des 
ensembles s1 et s2 (s = si union s2). 
OUEX ( s1 s2 --- s) 
S= S1 XOR s2. 
NON { s1 --- s) 
s = NON(S) 
Exemples: 
S1 ES à S2 ES à OU ES3 ES! 


donne ES3 = Si union S2 


Si ES à NON S3 ES! 
donne S3 = NON(S1) 


S1 ES à SDUP NON S2 ES à OÙ ET S3 ES 
donne S3 = (C.NON(S1) OU S2 }) ET SIL }) 
ou encore S3 = (( NON(S1) union S2 ) INTER S1 ) 


f) OPERATIONS DE TEST 
VIDE? CS --- f) 


teste si un ensemble est vide. f-0 ensemble non 
vide; f-1 ensemble vide. Exemple: 


S1 VIDE! S1 ES@ VIDE? affiche 1 OK 
APP? C e ads --- f) 
teste si un élément d'indice e appartient à 


l'ensemble d'adresse ads. Exemple: 


ELEMENT ENSEMBLE APP? 
donne 1 si ELEMENT appartient à ENSEMBLE 
O si ELEMENT n'appartient pas'à ENSEMBLE 


=? C s1 s2 --- fl) 
teste si deux ensembles sont égaux: fl=0 si s1 
est différent de 82; fl=1 si s1 est identique à 
s2. Exemple: 


affiche 1 
affiche 0 


Si ES@ SDUP =? . 
S1 ES(@ SDUP NON =? 


INCLU? (€ s1 s2 --- fl) 
teste si si est inclut dans s2. f1-0 si si 
n'est pas inclut dans s2; fl=1 si si est inclut 
dans s2. 


g) OPERATION DE RECHERCHE 


LOCAL.E ( e --- ADSn..ADS2 ADSI n) 

cette instruction recherche tous les ensembles 
contenant l'élément d'indice e. Elle dépose sur 
la pile l'adresse de ces ensembles et le nombre 
de ces ensembles. 


LOCAL.S ( ads --- adsn Aads-1..ads2 ads1i n) 
cette instruction recherche tous les ensembles 
incluant l'ensemble d'adresse ads. Elle dépose 
sur la pile l'adresse de tous les ensembles 
dans lesquels l'ensemble d'adresse ads est 
inclut, ainsi que le nombre de ces ensembles. 


NBE? ( ads --- n) 
indique le nombre d'éléménts contenus dans 
l'ensemble d'adresse ADS. Exemple: 
Si VIDE! S1 NBE? affiche O 
> 
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EXEMPLE D'UTILISATION DE S-FORTH 


: Avec cette extension de FORTH, il est 
maintenant possible de manipuler des ensembles 
dont les éléments peuvent représenter n'importe 
quoi (variables, programme, etc...). Ces élé- 
ments sont liées entre eux par la relation 
APPARTIENT ou N'APPARTIENT PAS Qu même ensem- 
ble. On peüt donc réaliser des minis systèmes 
experts. Bien entendu, 11 ne s'agit pas de 
réaliser un système professionnel, mais d'expé- 
rimenter des raisonnements logiques. 


Voici un exemple: on se propose de réaliser un 
programme devinant l'objet auquel le program- 
meur pense. Pour cela l'ordinateur considère au 
départ que tous les objets qu'ii connait sont 
possibles. Puis il propose un ensemble. L'uti- 
‘ lisateur devra alors dire si l'objet auquel il 
pense eët contenu dans l'ensemble. A partir de 
là, la machine en déduira l'ensemble des élé- 
ments possibles et reproposera un ensemble. 
L'aligorithme de recherche sera donc: 


- soit SOL l'ensemble des éléments possibles 
- soit EE? l'élément à deviner 


<( tous les éléments )-> SOL 


1) propose un ensemble S1: 
S1 alors SOL «- SOL inter S1 
sinon SOL «- (SOL XOR S1) inter SOL 


si EE?. appartient à 


Si SOL ne contient qu'un élément ou s'il n'y a 
plus d'ensemble à proposer, alors FIN sinon 
boucle en 1). Bien entendu, le système ne 
proposera pas n'importe quel ensemble. 11 
testera d'abord si S1 inter SOL est différent 
de VIDE. 


PROGRAMME 


O0 NSD t ( initialise S-FORTH) 
O0 EE SCULPTURE O EE OURS 

O EE CHIEN 

O EE LEZARD 


O NED 1! 

O0 EE AVION 
O EE-PLUMEAUX O EE CANARI 
O EE OREILLER O EE CORBEAU 
O EE AUTRUCHE 


ES ANIMAUX ES PLUMES: ES OBJETS 
ES FAMILIER ES SAUVAGES ES UTILE 
ES MAMMIFERE ES OISEAUX ES VOLE 
ES SOL2 ES SOL 

DECIMAL 


<( OURS CHIEN CANARI CORBEAU AUTRUCHE 
LEZARD )D-> ANIMAUX 

<( AVION PLUMEAUX OREILLER SCULPTURE 
)-> OBJET 

<C PLUMEAUX AVION OREILLER )-> UTILE 

<( PLUMEAUX OREILLER CANARI CORBEAU 
AUTRUCHE )-> PLUMES 

<( CHIEN CANARI )D-> FAMILIER 


FAMILIER ESC NON ANIMAUX ES(® 
ET SAUVAGE ES! 


<C AVION CANARI CORBEAU )-> VOLE 


ANIMAUX ESCD PLUMES ES@ ÊÉT OISEAUX ES! 
ANIMAUX ESC OISEAUX ES(&@ NON 
ET MAMMIFERE ES! 


ES 


1 VARIABLE POINTEUR O VARIABLE S1 
INITIAL : 
SOL2 VIDE! SOL2 ES NON SOL ES! 
1 POINTEUR ! O S1 ! : 
{ SOL2 est vide SOL est plein=NON SOL2) 
DEMANDE ( s1 ---) 
CR ." L'ELEMENT APPARTIENT-IL A CETTE LISTE" 


SOL2 ES. 


CR SDUP SOL2 ES! 
KEY 79= 

IF SOL ES ET SOL ES! 
ELSE SOL ESC SSWAP SOVER OUEX 
ET SOL ES! 

( OU THEN EN 79-STANDARD) ; 
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ENDIF 


JEDi 


: INTER? (si --- fl). 
SOL ED ET VIDE? O= ; 
: SOL? 
Si @ ES@ SDUP INTER? 
IF DEMANDE ë 
ELSE NON SDUP INTER? 
1F DEMANDE 
ELSE SDROP 
ENDIF 
ne Thomson 
DEVINE MO 5 
INITIAL : 
BEGIN 


POINTEUR (D TES @ S1 ! 
SOL? 1 POINTEUR +! ( POINTEUR <- POINTEUR+1) 
POINTEUR NED © > - 
SOL NBE? 27< OR 
?TERMINAL OR 
UNTIL 
.* SOLUTION:" SOL ES. CR ; 


Une fois chargé, tapez DEVINE 


LISTING DE L'EXTENSION S-FORTH 


FORTH DEFINITIONS 

VOCABULARY S-FORTH : ) 
C Le programme a été écrit sur un THOMSON MOS 
avec la cassette FORTH de LORICIEL. 11 est 
donc possible que la création de mots en as- 
sembleur ne soit pas standard. Dans ce cas, 
faut remplacer CREATE NOM par : NOM ; CODE ) 


il 


HEX 

CREATE U? 30C4 , 3610 , OEB6 , SMUDGE 

( EN ASSEMBLEUR: 

U? LEAX ,U 
PSHU X f 
JMP $B6 RETOUR A FORTH ) 


CREATE Ut 3710 , 3384 , OEB6 , SMUDGE 
C EN ASSEMBLEUR: 


Ut PULU X  Uc-U+2 
LEAU ,X Uc-X 
JMP $B6 » 


CREATE NDROP ECCI1 , 33CB , OEB6 , SMUDGE 


( EN ASSEMBLEUR: 

NDROP 
LDD : ,U++ D<-(U) ET U<-U+2 
LEAU D,U U<-U+D 


JMP $B6 ) 
CREATE R<D ECC4 , EDE3 , OEB6 , SMUDGE 
(€ EN ASSEMBLEUR : 
R<D LDD ,U D<-(U) 
STD ,--S POSE D SUR LA PILE SYSTEME 
JMP $B6 ) 
DECIMAL 
: PUL ( n adr ---) 
>R U? . 2+ SWAP R<D - R<D 
Ut R> R> R> ROT ROT CMOVE ; 


: REMOVE 
SWAP OVER x 
SWAP U? 4 + 


Cn N ---) 


DUP ROT + 
R<D ROT CMOVE- 


R> Ut ; 
NDUP X N --- x x ) 

U? 2+ PUL :; 

: NOVER ©( x1 x2 N --- x1 x2 x1) 
U? 2+ OVER + PUL ; | 

: NPICK ( xn..xO n N --- xn..xO xn) 
SWAP OVER x U? 4 + + PUL ; 

: NSWAP C x1 x2 N --- x2 x1) ms 
R<D NOVER 


2 R> REMOVE ; 


: : ES. ( ads ---) 
: NROT ( x3 X2 X1 N --- x2 x1 x3) 65535 NEM 8 / O 
>R 2 R PICK DO 
3 R> REMOVE ; 1 1+ 2 PICK 
I + CŒ@ OCT>IND 

HEX BEGIN DUP 65535 = 0- 
CREATE BIT? 3702 , 3702 , 3704 , 3704 , WHILE DUP NEDG@ > 

4D C, 2704 , 544A , 20F9 , 

1F DROP 
C401 , OEB4 , SMUDGE 


( EN ASSEMBLEUR : 


PULU ‘à LOOP DROP DROP ; 
PULU A 
PULU B : APPI1 ( e ads ---) 
Res SWAP 1 - DUP 8 / ROT 
ni 
DBTO BEQ FINO SAUT EN FINO SI A=0 : Dee de 
LSRB DECALE B VERS LA GAUCHE 
ÉRA BE js VIDE! ( ads ---) 
FANO ANDB #%*00000001 ET LOGIQUE ENTRE B ET.1 NERENERSERSS 
JMP <B4 ) ENLEVE1 ( e ads ---) 
SWAP 1 - DUP 8 / ROT 
CREATE BIT! 3702 , 3702 , 3402 , 4D27 , + DUP CŒ@ ROT 8 MOD 
0566 , 434A , 20F8 , 86FE , @ SWAP BIT! SWAP C! : 
A443 , AA4l , 3344 , 3504 , 
5D27 , 0449 , SA C, 20F9 , ENLEVE! ( $SFFFF el1..en ads ---) 
1E89 , OEB4 , SMUDGE BEGIN OVER 65535 = O-= 
; : WHILE SWAP OVER ENLEVEI1 
( EN ASSEMBEUR: REPEAT 
PULU A DROP DROP :; 
PULU A 
PSHS A APPt ( $SFFFF el..en ads ---) 
TSTA BEGIN OVER 65535 = 0= 
DBT1 BEQ FIN1 SAUT EN FIN1 SI A=0 WHILE SWAP OVER APP1 
ROR 3,U REPEAT 
DECA DROP DROP ; 
BRA DBT1 
FIN1 LDA #%11111110 A<-254 : CHARGE!  ( S$FFFF e1..en ads ---) 
ANDA 3,U DUP VIDE! APP! : 
ORA 1,U 
LEAU 4,U U<-U+4 1 De -FIND 
PULS B IF DROP 2+ CHARGE! 
TSTB ELSE ." Ensemble inexistant" CR WARM ENDIF : 
DBT2 BEQ FIN2 
ROLA : st  ( adsi ads2 ---) 
DECB SWAP NEM 8 / CMOVE ; 
BRA DBT2 
FIN2 EXG A,B HEX 
JMP $B4 CREATE ‘ES(® 3430 , ECC1 , AECI1 , 5D27 , 
0810 , AE81 , 3620 , SAC, 
DECIMAL 20F6 , 3530 , OEB6 , SMUDGE 
ARRAY1 


<BUILDS 2x ALLOT DOES» C EN ASSEMBLEUR : 


SWAP 1- 2 x + : ‘ES © PSHS X,Y EMPILE X ET Y SUR PILE SYS 
; : LDD ,U++ D<-CU);U<-U+2 
S-FORTH DEFINITIONS DECIMAL LDX ,UMM X<-(U);U<-U+2 
80 CONSTANT NEM 80 CONSTANT NSM TSTB TEST DU CONTENU DE B 
O VARIABLE NED O0 VARIABLE NSD DEB BEQ FIN 
LDY ,X++ Y<-(XD:X<-X+2 
NEM 8 / CONSTANT N8 PSHU Y EMPILE Y SUR PILE UTIL 
NEM 16 / CONSTANT N16 DECB B<-B-1 
BRA DEB 
NEM ARRAY1 TEE NSM ARRAY1 TES FIN  PULS X,Y 
JMP $B6 RETOUR A FORTH ) 
: EE ( Création d'un élément) i 
BUILDS 1 NED +! NED @ DUP C, ES@ N16 ‘ES : 
OVER C, LATEST PFA 2+ 
SWAP TEE ! 2 x ALLOT CREATE ‘ES! 3430 , ECCI1 , AEC1 , 3A34A , 
DOES> ÇG2 : 5D27 , 0837 , 2010 , AF83 , 
SA C, 20F6 , 3530 , OEB6 , 
: ES ( crée un ensemble) SMUDGE 
{BUILDS 1 NSD +! NEM 8 / ALLOT 
LATEST PFA 2+ NSD @ TES ! ( EN ASSEMBLEUR : : 
DOES» ; "ES! PSHS X,Y EMPILE X ET Y SUR PILE SYS 
LDD ,U++ 
OCT>IND LDX ,U++ 
SWAP 1- SWAP 8 0 ABX 
DO ABX SOIT Xc<-X+2xB 
DUP I BIT? TSTB TEST CONTENU DE B 
IF DEB BEQ FIN 
OVER 8 x I + 1+ PULU Y 
ROT ROT STY ,--X XC-X-2: (XD C-Y 
SNA DECB B<-B-1 
LOOP BRA DEB 
DROP DROP ; FIN PULS Y,X 
JMP $B6 RETOUR À FORTH » 
<C 65535 ; ( OU -1) 
& LE PA 
TEDI N 25 se AAGE 


! ! ! : 
ES! N16 ES! ; : SROT N8 NROT ; { 53 Ss2 S1 --- sS2 s1 S3) 


CREATE ‘OU 3410 , ECCI , 30C5 , SD C, SDROP N& NDROP ; CS ---) 
2709 , A6CO , AAB4 , A7B0 , 


5A C. 20F5 , 3510 , OEB6 , VIDER. OS ere PL 


1 N16 O DO 


SNUPSE SWAP O= AND 
, 2 LOOP ; 
( Pour le mot ‘ET même programme; il suffit de 
nl AAB4, càäd ORA ,X, par 4484, cäd ANDA Abba “4 Sade mes Fi) 
, OVER 1- 8 / 
€ Pour le mot ‘OUEX même programme; il suffit Se “SNA IR. 6MOR 


de remplacer AAB84, càäd ORA ,X, par AB884, càd 
EOR ,X.) ; : =? € si 82 --- fl) 


He 
( EN ASSEMBLEUR: OUEX VIDE? ; 


OÙ PSHS X EMPILE X SUR PILE SYS A 
LDD ,U++ SOVER ET =?  ; 
LEAX B,U X<-X+B au 
TSTB TEST DE B LOCAL.E ( e --- adsn..ads2 adsi n) 
DEB BEQ FIN 
Re 0 NSD @ 1+ 1 DO 
RS OVER I TES @ 
ue | APP? 
, IF 1+ I TES @  ROT ROT 
DECB 
| ENDIF 
! BRA DEB LOOP 
| FIN PULS X SWAP DROP ; 
: JMP $B6 RETOUR A FORTH ) : 
. LOCAL.S ( ads --- adsn..adsi n) 
| ( Pour ‘ET remplacer ORA ,X par ANDA ,X ) 0 NSD @ 1+ 1 DO 
, OVER DUP I TES @ - oO- 
( our ‘OUEX remplacer ORA ,X par EOR A,X ) SWAP ES@ 1 TES @ ES@® 
? 
CREATE ‘NON 3410 , ECC1 , 3040 , 5D27 , En ee @ ROT ROT 
0563 , B805A , 20F9 , 3510 , ENDIF È 
OEB6 , SMUDGE LOOP 


(€  ASSEMBLEUR: SWAP DROP ; 


NON PSHS X : NBE? (ads --- n) 
LDD ,U++ 0 N8 O DO 
LEAX O,U X<-U; 
TETE 8 O DO 

DEB BEQ FIN NE EE 
SON e LS J BIT? 1 8 * 
ï L J + NED @ <« AND 
DECB 
1F 1+  ENDIF 
BRA DEB LOOP 
FIN PULS X LOGP 
JMP $B6 RETOUR A FORTH ) SWAP DROP : 
DECIMAL 
: OÙ N&8 ‘OÙ ; ( si S2 --- s) 

ET NS ‘ET ; { s1 s2 --- S) 

OUEX  N8 ‘OUEX ; {€ s1 82 --- S) 

NON N& ‘NON ; ( s --- s) 

SSWAP N8 NSWAP ; ( s1 s2 --- s2 s1) 

SOVER N8 NOVER ; (€ s1 s2 --- S1 S2 S1) 

SDUP N8 NDUP  ; (€ si --- si sl) 

SPICK N& NPICK ; ( sn..s80 n --- sn..s0 sn) Ex 
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FORTH 


l 


Les deux utilitaires qui suivent consti- 
tuent des atouts indispensables aux heureux 
utilisateurs du langage FORTH édité par JEDI 
pour le CPC d'AMSTRAD. 11 s'agit d'un éditeur 
plein écran et d'un utilitaire de recopie d'é- 


cran graphique (hardcopy). 


L'EDITEUR PLEIN ECRAN 


Un éditeur en ligne sur un langage de 
quatrième génération pourrait être considéré 
comme un anachronisme. Mais en fait, cela con- 
tribue à la portabilité et à la simplicité du 
langage. Ainsi pourrons-nous conserver cette 
fonction tout en améliorant sensiblement la 
vitesse et le confort d'édition. Notre éditeur 
appelle au préalable pluisieurs remarques: 
commande est tout simplement ‘'LISTP’ 
lieu de ‘'LIST'. 

le pavé des touches fléchées permet 
promener sur l'écran. 

quatres nouvelles touches sont émulées: 

*“CLR' permet d'effacer les caractères 
sous le curseur. 

"ESC' permet de sortir de l'écran et de 
recopier dans le buffer. Ainsi n'y aura- 
t-il plus qu'à faire '"FLUSH' pour copier 
l'écran sur disque. 

*CoPY' permet de mémoriser le caractère 
sous le curseur. On peut ainsi mémoriser 
jusqu'à 64 caractères, donc toute une 
ligne. 

*SHIFT'+'COPY' permet de 
l'enplacement du curseur 
lettres mémorisées dans la fonction 
"COPY' et ceci en une seule fois. Cette 
fonction permet de réaliser un véritable 
‘coupé/collé'. 

on est d'office en mode insertion, ce qui 
facilite grandement les corrections d'erreurs. 
Une petite marge de dépassement de ligne est 


la au 


de 


se 


restituer à 
toutes les 


EDITEUR PLEIN ECRAN et COPIE GRAPHIQUE 


par Roland JEANNIN 


tolérée pour les “<orrections à 
seulement. 

- une petite astuce à remarquer est la consti- 
tution d'une véritable pile pour mémoriser la 
copie. 

il faut reconnaitre que l'affichage est 
peu lent. Mais vous savez que vous pouvez 
trer 20 caractères à la fois avant qu'ils 
soient affichés. Moyennant cela, 
jouir d'un confort 
édition. 

la commande a été testée sur le CPC 
Elle est très facilement adaptable aux 


types de CPC. 


l'affichage 


un 
en- 
ne 
vous pourrez 
inégalé à peu de frais en 
- 664. 
autres 


LA RECOPIE GRAPHIQUE 


La recopie d'écran graphique est 
par le mot ‘HC'. 
Quelques remarques seront utiles: 
pour compiier ce mot, on utilise un utili- 
taire constituant un véritable petit assembleur 
avec les possibilités suivantes: 
définition de labels (xx). 
sauts absolus (JA) vers une adresse 
un label. 
sauts relatifs (JR) en avant ou 
arrière, de d octets ou vers un label. 
simplification des procédures d'initia- 
lisation et de conclusion. 
la fonction pourra être appelée sous 
porte quel mode d'affichage. 
la recopie se fait 
L'imprimante est commutée 
mode graphique. 
Cexemple: 


appelée 


ou 


en 


+ 


n'im- 


- pixel par pixel. 
automatiquement en 
Elle doit étre du type EPSON 
Centronics GLP, DMP 2000 =): 


Pour tout renseignement ou adaptation, 
téléphoner à: 
Mr Roland JEANNIN 
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SwAP 


t IL 2% ID + 3 


! HEX 3 
12€ » 


F DO 1 @ DUP ABS FF > IF » ELSE 


3 DEC DECIMAL ; 


DUP FF > IF 
| + en D ) 
E “+ CD BBBA CD BBE7 32 À JA CD 5 JA 21 @18F 22 B JA 11 ee 


@ VAR CTI 
1 PIeR: 
spé LMS® 

‘LMSS + C3 C 


3 


ire de calculs langage machine } 


1> -2PI + 


LMD -2 ALLOT LATEST PFA DUP 2 — : 


JR DUP DR LMC R> HERE DI I 1 CTI +! 3 
DEC 


JA 188 + JR : 


IR PI 
! 


ELSE IL @ 1> 1 - DUP ROT SWAP — 1 - 
++ DR LAC HERE R> IL! V5 


IR VAR PI 


à CT CONSTANT 3; © VAR LMS9 @ VAR IDL 38 ALLOT 


e 
pl 
ra 
nm] 
CA 
T 
# 
o 
Pa 
2 
CL 
LI 
Le] 
3 
U 
+ 
Q] 
U 
LL] 


2 PI +! 
ecran graphique æ HC ) ( page 1/2 ) 


e 
3E 7 32 C JA 


O0 ++ CD & JA 


THEN LOOP © CTI 
CS CD E JA { saut en E } C3 D JA ( sau 


VAR IR 288 ALLOT 
Li 
LMC SP& 2 - LMS9 € 2 — 2DUP < I 
7 C>: THEN -2 HO0O0P THEN SPI 3 
LMF DEC C3 12C LMC CTI @ 1+ @ DO 1> 
, 


>I PI 


S HEX © VAR SPI LMD ED C, 7B C: 


9 19 - IL 1> 2 - 

8 ( copie d’ 

1 { compiler d’abord l’utilita 
2 @ VAR HC LMD 


8 
19 C! 
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FORTH HORLOGE TEMPS RÉEL. 


Le programme ci-joint, réalisé par un de 
nos adhérents, Mr J. CHANDRU, est un des pre- 
miers à utiliser le programme d'assemblage 
écrit en FORTH pour TO7, TO7-70. 


Monsieur, _ 


Je vous adresse (sans attente) mon horloge 
interne, sans attente d'une hypothétique amèé- 
jJioration de sa définition, à vous de voir si 
elle est digne d'intérêt en l'état. 


Sa définition est de 100 ms. Son fonc- 
tionnement est perturbé par le LEP, la disquet- 
te, la sortie son. C'est un utilitaire permet- 
tant de comparer des temps d'exécution, et, 
éventuellement, de commander des exécutions 
insolites. 


notations d'adresses déclarées en 
sont les appelations du moniteur 


Les 
constantes 
TO7. 


TOP provoque la mise dans le pointeur d'IT de 
la premiére adresse routine ROHEUR; la mise à 
zéro de la variable chrono (TIME?); la sauve- 
garde du STATUS avant modification; là mise en 
route de l'horloge par modification du STATUS. 


TIME affiche le chrono. Celui-ci repasse à zéro 
toutes les deux heures environ. 


STOP arrête le chrono en restaurant l'ancien 
STATUS - 
REMARQUE: Après essai, nous n'avons pas remar- 


qué de dérive dans la mesure des 
sur des intervalles de mesures très 
style 30 minutes à 1 heure. 


temps, même 
longs, du 
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1 **% E @ 3A C JA 47 


3 
4 
s 
& 
7 
8 
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B JA 3E 7 BD 29 @ JR 7C B4 20 
R re 


y 


Di 21 À JA BE Ei 37 20 3 JR A7 

CD 9 JA 79 CD 8 JA 13 ES 21 027F 37, 
JA 18 i JR 
JA 3E 1B CD 8 JA 3€ 4C CD 8 JA 


CD 8 
3E 7F CD 8 JA 3€ 2 CD 8 JA C9 


A 
8 
1 
1 
1 
S + CD BD2E 38 8 JR CD BD2B C9 


2 ** ES DS CS CD BBF@ C1 
2 

38 4 JR 2 
11 
J 

3E 4 
E 

ecran graphique = HC 
9 ** 39 C JA FE 7 C8 AF CB 11 CB 11 CB 11 C9 


Z 4x CB 11 2B 2B 19 
7 %* 3E D CD 8 JA Æ A 


@e 
Ï 
LA 


copie d” 


Ca] 


+ n 
Œ © 4 (N M 1 0 SO œ © 
5 Ce 
") 


.-par J CHANDRU 


SCR: 20 

HEX 

E830 CONSTANT KBIN 
6019 CONSTANT (STATUS) 


« sortie d'IT ) 


6027 CONSTANT (TIMEPT) € pointeur IT) 
VARIABLE STATUS? Ç  memo status) 
VARIABLE TIME? Ç chrono ) 
CODE ROHEUR TIME? 1+ inc 
ne if 
TIME? inc then 


KBIN jmp END-CODE 
TOP € —---) 
*. ROHEUR (TIMEPT) ! 
Q@ TIMET ! 


(STATUS) C© DUP STATUS? C! 
2@ OR (STATUS) C! ; 
STOP C ---) 
STATUS? C@ (STATUS) C! ; 
:00 # 6 BASE ! # DECIMAL 3A HOLD ; 
TIME € ---) 
TIME? @ © 
<# # 2C HOLD :00 
ou Hr:Min:Sec" ; 
DECIMAL 


Thomson TO7-70 


:00 #S #> TYPE 


vous pouvez vous-même faire quelques essais: 


BC 10000 O DO EOOP ; 
puis 

TOP BC TIME 
affiche 

090:00:00,6 Hr:Min:Sec 


Faites vos propres essais en tapant: 
COLORON CLS TOP VLIST TIME 

et 
COLOROFF CLS TOP VLIST TIME 


qu'en déduisez-vous ? 


